home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / pay1pers.arc / QTRLY.PRG < prev    next >
Encoding:
Text File  |  1987-01-15  |  294 b   |  14 lines
  1. *** QTRLY.PRG (procedure for quarterly report)
  2. *** Copyright @ 1987, Martin J. Michaelson
  3. SELECT A
  4. set index to empno,dept
  5. SELECT D
  6. SET RELATION TO EMP_NMBR INTO A
  7. SET PRINT ON
  8. ?? CHR(15)
  9. ?? CHR(27)+"E"
  10. LIST OFF A->SS_NMBR,"   ",A->NAME,D->GRO_PAY TO PRINT
  11. ?
  12. SET PRINT OFF
  13. RETURN
  14.